home *** CD-ROM | disk | FTP | other *** search
- From: "Oliver Laumann" <seismo!unido!tub!net>
- Subject: Example dial script.
- Newsgroups: mod.sources
- Approved: jpn@panda.UUCP
-
- Mod.sources: Volume 3, Issue 123
- Submitted by: "Oliver Laumann" <seismo!unido!tub!net>
-
-
- I forgot to include the sample dial script in the dial distribution.
- I'm sorry about that. Here it comes:
- --
- Oliver Laumann net@DB0TUI6.BITNET net@tub.UUCP
-
- ------------------cut here------------------------
- #! /bin/sh
- # This is a shell archive, meaning:
- # 1. Remove everything above the #! /bin/sh line.
- # 2. Save the resulting text in a file.
- # 3. Execute the file with /bin/sh (not csh) to create the files:
- # example
- # This archive created: Wed Feb 12 13:14:28 1986
- export PATH; PATH=/bin:$PATH
- echo shar: extracting "'example'" '(2386 characters)'
- if test -f 'example'
- then
- echo shar: will not over-write existing file "'example'"
- else
- cat << \SHAR_EOF > 'example'
- # Example for a dial script.
- #
- # Connect to a remote UNIX machine through a PABX and obtain certain
- # information from a server account (`qomnews') on this machine.
- # The line through which the PABX can be accessed is defined in
- # /etc/remote under the name `pabx', thus...
-
- line=pabx
-
- # If the PABX receives ^A^B+, it responds with D+ indicating that
- # it is ready to accept a phone number.
- # Due to a bug in the PABX software, it sometimes responds with
- # two beeps; In this case, there is nothing we can do exept quit
- # and fix it by hand...
-
- prolog \1\2+ 1
- dial D+
- exit \7\7 "Go buy a new PABX!\n"
- exit # "No response from PABX.\n"
-
- # Send the phone number of the remote UNIX machine. Sleep 0.1 seconds
- # before actually transmitting the number (otherwise the PABX gets angry).
- # If we receive a V followed by a three-digit number and a plus sign,
- # the connection has been established successfully. Several responses
- # of the form <letter>+ are used by the PABX to indicate that something
- # went wrong; these reponses are translated into useful messages.
-
- dial 618\r 5,.1
- exit B+ "Port busy -- try later.\n"
- exit N+ "Out of order.\n"
- exit E+ "Invalid phone number.\n"
- connected V...+
- exit # "Connection failed.\n"
-
- # Transmit a carriage return in order to get the login prompt.
-
- connected \r 5,.1
- login "login: "
- exit # "Login failed.\n"
-
- # Login at the remote machine using the login name `qomnews'.
-
- login qomnews\r
- enter "name? "
- exit # "QOM news server down.\n"
-
- # The qomnews server prompts for a user name. The name is obtained
- # from the file .qomid from the caller's home directory.
- # Note that a time-out of 15 seconds is scheduled in order to give
- # the server a resonable time for the response.
- # If all goes well, the server transmits a number of lines of the form
- # You have <n> unseen letters
- # You have <n> unseen entries in XYZ
- # or simply
- # You have seen all the news.
- # If the first `You' has been received, enter the `data' loop below.
-
- enter "${~/.qomid}" 15
- data \r\n\r\nYou You
- exit O+ "Early disconnect."
- exit # "QOM news server is hung.\n"
-
- # Print all data received from the remote machine on standard output
- # until either a time-out of 5 seconds occurs or the disconnect message
- # O+ is received.
-
- data "" 5
- exit O+
- data * &
- SHAR_EOF
- if test 2386 -ne "`wc -c < 'example'`"
- then
- echo shar: error transmitting "'example'" '(should have been 2386 characters)'
- fi
- fi # end of overwriting check
- # End of shell archive
- exit 0
-
-